home *** CD-ROM | disk | FTP | other *** search
MacBinary | 1990-01-28 | 5.4 KB | [ TEXT/MPS ]
open in: MacOS 8.1
extracted
|
Win98
extracted
|
DOS
extracted
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary ).
id metadata key value macFileType [ TEXT] macFileCreator [ MPS ]
hex view +--------+-------------------------+-------------------------+--------+--------+ |00000000| 00 05 74 6c 70 2e 63 00 | 00 00 00 00 00 00 00 00 |..tlp.c.|........| |00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 28 00 c0 00 |.TEXTMPS| ...(...| |00000050| 00 00 00 00 00 13 70 00 | 00 01 7e a1 e8 97 ee a1 |......p.|..~.....| |00000060| e8 97 ee 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 26 bf 00 00 |........|....&...| |00000080| 28 29 20 2a 2f 0d 0d 0d | 2f 2a 3d 3d 3d 3d 3d 3d |() */...|/*======| |00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 5b 20 62 61 64 |========|===[ bad| |000000a0| 5f 73 74 72 6c 65 6e 20 | 5d 3d 3d 3d 3d 3d 3d 3d |_strlen |]=======| |000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 2a 2f 0d 0d |========|====*/..| |000000c0| 73 74 61 74 69 63 20 56 | 4f 49 44 20 62 61 64 5f |static V|OID bad_| |000000d0| 73 74 72 6c 65 6e 28 6c | 69 6e 65 5f 6e 75 6d 2c |strlen(l|ine_num,| |000000e0| 20 70 61 72 6d 5f 6e 61 | 6d 65 2c 20 6d 61 78 5f | parm_na|me, max_| |000000f0| 6c 65 6e 29 0d 69 6e 74 | 20 09 09 6c 69 6e 65 5f |len).int| ..line_| |00000100| 6e 75 6d 3b 0d 63 68 61 | 72 2a 09 09 70 61 72 6d |num;.cha|r*..parm| |00000110| 5f 6e 61 6d 65 3b 0d 70 | 6f 73 5f 69 6e 74 20 09 |_name;.p|os_int .| |00000120| 6d 61 78 5f 6c 65 6e 3b | 0d 0d 09 7b 20 2f 2a 20 |max_len;|...{ /* | |00000130| 62 61 64 5f 73 74 72 6c | 65 6e 28 29 20 2a 2f 0d |bad_strl|en() */.| |00000140| 09 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c |.fprintf|(stderr,| |00000150| 20 22 53 74 72 69 6e 67 | 20 74 6f 6f 20 6c 6f 6e | "String| too lon| |00000160| 67 20 66 6f 72 20 70 61 | 72 6d 20 27 25 73 27 5c |g for pa|rm '%s'\| |00000170| 6e 22 2c 20 70 61 72 6d | 5f 6e 61 6d 65 29 3b 0d |n", parm|_name);.| |00000180| 09 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c |.fprintf|(stderr,| |00000190| 20 22 69 6e 20 6c 69 6e | 65 20 25 64 20 6f 66 20 | "in lin|e %d of | |000001a0| 50 61 72 6d 20 46 69 6c | 65 20 27 25 73 27 5c 6e |Parm Fil|e '%s'\n| |000001b0| 22 2c 0d 09 09 09 6c 69 | 6e 65 5f 6e 75 6d 2c 20 |",....li|ne_num, | |000001c0| 66 69 6c 65 5f 72 65 63 | 2e 70 61 72 6d 5f 66 6e |file_rec|.parm_fn| |000001d0| 61 6d 65 29 3b 0d 09 66 | 70 72 69 6e 74 66 28 73 |ame);..f|printf(s| |000001e0| 74 64 65 72 72 2c 20 22 | 4d 61 78 69 6d 75 6d 20 |tderr, "|Maximum | |000001f0| 6c 65 6e 67 74 68 20 66 | 6f 72 20 70 61 72 6d 20 |length f|or parm | |00000200| 69 73 20 25 75 5c 6e 22 | 2c 0d 09 09 09 6d 61 78 |is %u\n"|,....max| |00000210| 5f 6c 65 6e 29 3b 0d 09 | 65 78 69 74 28 31 29 3b |_len);..|exit(1);| |00000220| 0d 09 7d 20 2f 2a 20 62 | 61 64 5f 73 74 72 6c 65 |..} /* b|ad_strle| |00000230| 6e 28 29 20 2a 2f 0d 0d | 0d 2f 2a 3d 3d 3d 3d 3d |n() */..|./*=====| |00000240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 5b 20 73 65 |========|====[ se| |00000250| 74 5f 62 79 74 65 76 61 | 6c 20 5d 3d 3d 3d 3d 3d |t_byteva|l ]=====| |00000260| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 2a 2f |========|======*/| |00000270| 0d 0d 73 74 61 74 69 63 | 20 56 4f 49 44 20 73 65 |..static| VOID se| |00000280| 74 5f 62 79 74 65 76 61 | 6c 28 6c 69 6e 65 5f 6e |t_byteva|l(line_n| |00000290| 75 6d 2c 20 70 61 72 6d | 5f 6e 61 6d 65 2c 20 70 |um, parm|_name, p| |000002a0| 61 72 6d 5f 66 6c 64 5f | 70 74 72 2c 20 6c 6f 5f |arm_fld_|ptr, lo_| |000002b0| 62 6f 75 6e 64 2c 20 68 | 69 5f 62 6f 75 6e 64 29 |bound, h|i_bound)| |000002c0| 0d 69 6e 74 20 09 09 6c | 69 6e 65 5f 6e 75 6d 3b |.int ..l|ine_num;| |000002d0| 0d 63 68 61 72 2a 09 09 | 70 61 72 6d 5f 6e 61 6d |.char*..|parm_nam| |000002e0| 65 3b 0d 62 79 74 65 2a | 09 09 70 61 72 6d 5f 66 |e;.byte*|..parm_f| |000002f0| 6c 64 5f 70 74 72 3b 0d | 69 6e 74 20 09 09 6c 6f |ld_ptr;.|int ..lo| |00000300| 5f 62 6f 75 6e 64 3b 0d | 69 6e 74 20 09 09 68 69 |_bound;.|int ..hi| |00000310| 5f 62 6f 75 6e 64 3b 0d | 0d 09 7b 20 2f 2a 20 73 |_bound;.|..{ /* s| |00000320| 65 74 5f 62 79 74 65 76 | 61 6c 28 29 20 2a 2f 0d |et_bytev|al() */.| |00000330| 2f 2a 0d 64 65 62 75 67 | 28 70 72 69 6e 74 66 28 |/*.debug|(printf(| |00000340| 22 73 65 74 5f 62 79 74 | 65 3a 27 25 73 27 3d 25 |"set_byt|e:'%s'=%| |00000350| 6c 64 20 5b 25 64 2c 25 | 64 5d 5c 6e 22 2c 70 61 |ld [%d,%|d]\n",pa| |00000360| 72 6d 5f 6e 61 6d 65 2c | 74 6f 6b 65 6e 2e 74 6f |rm_name,|token.to| |00000370| 6b 5f 76 61 6c 75 65 2c | 6c 6f 5f 62 6f 75 6e 64 |k_value,|lo_bound| |00000380| 2c 68 69 5f 62 6f 75 6e | 64 29 3b 29 0d 2a 2f 0d |,hi_boun|d);).*/.| |00000390| 09 69 66 20 28 74 6f 6b | 65 6e 2e 74 6f 6b 5f 74 |.if (tok|en.tok_t| |000003a0| 79 70 65 20 3d 3d 20 54 | 4f 4b 5f 4e 43 4f 4e 53 |ype == T|OK_NCONS| |000003b0| 54 29 0d 09 09 7b 20 2f | 2a 20 72 69 67 68 74 20 |T)...{ /|* right | |000003c0| 74 79 70 65 2c 20 63 68 | 65 63 6b 20 72 61 6e 67 |type, ch|eck rang| |000003d0| 65 20 2a 2f 0d 09 09 69 | 66 20 28 74 6f 6b 65 6e |e */...i|f (token| |000003e0| 2e 74 6f 6b 5f 76 61 6c | 75 65 3e 3d 6c 6f 5f 62 |.tok_val|ue>=lo_b| |000003f0| 6f 75 6e 64 20 26 26 20 | 74 6f 6b 65 6e 2e 74 6f |ound && |token.to| |00000400| 6b 5f 76 61 6c 75 65 3c | 3d 68 69 5f 62 6f 75 6e |k_value<|=hi_boun| |00000410| 64 29 0d 09 09 09 2a 70 | 61 72 6d 5f 66 6c 64 5f |d)....*p|arm_fld_| |00000420| 70 74 72 20 3d 20 28 62 | 79 74 65 29 74 6f 6b 65 |ptr = (b|yte)toke| |00000430| 6e 2e 74 6f 6b 5f 76 61 | 6c 75 65 3b 0d 09 09 65 |n.tok_va|lue;...e| |00000440| 6c 73 65 0d 09 09 09 62 | 61 64 5f 6e 75 6d 72 61 |lse....b|ad_numra| |00000450| 6e 67 65 28 6c 69 6e 65 | 5f 6e 75 6d 2c 20 70 61 |nge(line|_num, pa| |00000460| 72 6d 5f 6e 61 6d 65 2c | 20 28 6c 6f 6e 67 29 6c |rm_name,| (long)l| |00000470| 6f 5f 62 6f 75 6e 64 2c | 20 28 6c 6f 6e 67 29 68 |o_bound,| (long)h| |00000480| 69 5f 62 6f 75 6e 64 29 | 3b 0d 09 09 7d 0d 09 65 |i_bound)|;...}..e| |00000490| 6c 73 65 0d 09 09 62 61 | 64 5f 74 79 70 65 28 6c |lse...ba|d_type(l| |000004a0| 69 6e 65 5f 6e 75 6d 2c | 20 70 61 72 6d 5f 6e 61 |ine_num,| parm_na| |000004b0| 6d 65 2c 20 54 4f 4b 5f | 4e 43 4f 4e 53 54 29 3b |me, TOK_|NCONST);| |000004c0| 0d 09 7d 20 2f 2a 20 73 | 65 74 5f 62 79 74 65 76 |..} /* s|et_bytev| |000004d0| 61 6c 28 29 20 2a 2f 0d | 0d 0d 2f 2a 3d 3d 3d 3d |al() */.|../*====| |000004e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 5b 20 73 |========|=====[ s| |000004f0| 65 74 5f 69 6e 74 76 61 | 6c 20 5d 3d 3d 3d 3d 3d |et_intva|l ]=====| |00000500| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 2a 2f |========|======*/| |00000510| 0d 0d 73 74 61 74 69 63 | 20 56 4f 49 44 20 73 65 |..static| VOID se| |00000520| 74 5f 69 6e 74 76 61 6c | 28 6c 69 6e 65 5f 6e 75 |t_intval|(line_nu| |00000530| 6d 2c 20 70 61 72 6d 5f | 6e 61 6d 65 2c 20 70 61 |m, parm_|name, pa| |00000540| 72 6d 5f 66 6c 64 5f 70 | 74 72 2c 20 6c 6f 5f 62 |rm_fld_p|tr, lo_b| |00000550| 6f 75 6e 64 2c 20 68 69 | 5f 62 6f 75 6e 64 29 0d |ound, hi|_bound).| |00000560| 69 6e 74 20 09 09 6c 69 | 6e 65 5f 6e 75 6d 3b 0d |int ..li|ne_num;.| |00000570| 63 68 61 72 2a 09 09 70 | 61 72 6d 5f 6e 61 6d 65 |char*..p|arm_name| |00000580| 3b 0d 70 6f 73 5f 69 6e | 74 2a 09 70 61 72 6d 5f |;.pos_in|t*.parm_| |00000590| 66 6c 64 5f 70 74 72 3b | 0d 70 6f 73 5f 69 6e 74 |fld_ptr;|.pos_int| |000005a0| 20 09 6c 6f 5f 62 6f 75 | 6e 64 3b 0d 70 6f 73 5f | .lo_bou|nd;.pos_| |000005b0| 69 6e 74 20 09 68 69 5f | 62 6f 75 6e 64 3b 0d 0d |int .hi_|bound;..| |000005c0| 09 7b 20 2f 2a 20 73 65 | 74 5f 69 6e 74 76 61 6c |.{ /* se|t_intval| |000005d0| 28 29 20 2a 2f 0d 2f 2a | 0d 64 65 62 75 67 28 70 |() */./*|.debug(p| |000005e0| 72 69 6e 74 66 28 22 73 | 65 74 5f 69 6e 74 3a 27 |rintf("s|et_int:'| |000005f0| 25 73 27 3d 25 6c 64 20 | 5b 25 64 2c 25 64 5d 5c |%s'=%ld |[%d,%d]\| |00000600| 6e 22 2c 70 61 72 6d 5f | 6e 61 6d 65 2c 74 6f 6b |n",parm_|name,tok| |00000610| 65 6e 2e 74 6f 6b 5f 76 | 61 6c 75 65 2c 6c 6f 5f |en.tok_v|alue,lo_| |00000620| 62 6f 75 6e 64 2c 68 69 | 5f 62 6f 75 6e 64 29 3b |bound,hi|_bound);| |00000630| 29 0d 2a 2f 0d 09 69 66 | 20 28 74 6f 6b 65 6e 2e |).*/..if| (token.| |00000640| 74 6f 6b 5f 74 79 70 65 | 20 3d 3d 20 54 4f 4b 5f |tok_type| == TOK_| |00000650| 4e 43 4f 4e 53 54 29 0d | 09 09 7b 20 2f 2a 20 72 |NCONST).|..{ /* r| |00000660| 69 67 68 74 20 74 79 70 | 65 2c 20 63 68 65 63 6b |ight typ|e, check| |00000670| 20 72 61 6e 67 65 20 2a | 2f 0d 09 09 69 66 20 28 | range *|/...if (| |00000680| 74 6f 6b 65 6e 2e 74 6f | 6b 5f 76 61 6c 75 65 20 |token.to|k_value | |00000690| 3e 3d 20 6c 6f 5f 62 6f | 75 6e 64 20 26 26 20 74 |>= lo_bo|und && t| |000006a0| 6f 6b 65 6e 2e 74 6f 6b | 5f 76 61 6c 75 65 20 3c |oken.tok|_value <| |000006b0| 3d 20 68 69 5f 62 6f 75 | 6e 64 29 0d 09 09 09 2a |= hi_bou|nd)....*| |000006c0| 70 61 72 6d 5f 66 6c 64 | 5f 70 74 72 20 3d 20 28 |parm_fld|_ptr = (| |000006d0| 70 6f 73 5f 69 6e 74 29 | 74 6f 6b 65 6e 2e 74 6f |pos_int)|token.to| |000006e0| 6b 5f 76 61 6c 75 65 3b | 0d 09 09 65 6c 73 65 0d |k_value;|...else.| |000006f0| 09 09 09 62 61 64 5f 6e | 75 6d 72 61 6e 67 65 28 |...bad_n|umrange(| |00000700| 6c 69 6e 65 5f 6e 75 6d | 2c 20 70 61 72 6d 5f 6e |line_num|, parm_n| |00000710| 61 6d 65 2c 20 28 6c 6f | 6e 67 29 6c 6f 5f 62 6f |ame, (lo|ng)lo_bo| |00000720| 75 6e 64 2c 20 28 6c 6f | 6e 67 29 68 69 5f 62 6f |und, (lo|ng)hi_bo| |00000730| 75 6e 64 29 3b 0d 09 09 | 7d 0d 09 65 6c 73 65 0d |und);...|}..else.| |00000740| 09 09 62 61 64 5f 74 79 | 70 65 28 6c 69 6e 65 5f |..bad_ty|pe(line_| |00000750| 6e 75 6d 2c 20 70 61 72 | 6d 5f 6e 61 6d 65 2c 20 |num, par|m_name, | |00000760| 54 4f 4b 5f 4e 43 4f 4e | 53 54 29 3b 0d 09 7d 20 |TOK_NCON|ST);..} | |00000770| 2f 2a 20 73 65 74 5f 69 | 6e 74 76 61 6c 28 29 20 |/* set_i|ntval() | |00000780| 2a 2f 0d 0d 0d 2f 2a 3d | 3d 3d 3d 3d 3d 3d 3d 3d |*/.../*=|========| |00000790| 3d 3d 3d 3d 3d 3d 3d 3d | 5b 20 73 65 74 5f 73 74 |========|[ set_st| |000007a0| 72 76 61 6c 20 5d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |rval ]==|========| |000007b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 2a 2f 0d 0d 73 74 61 |========|=*/..sta| |000007c0| 74 69 63 20 56 4f 49 44 | 20 73 65 74 5f 73 74 72 |tic VOID| set_str| |000007d0| 76 61 6c 28 6c 69 6e 65 | 5f 6e 75 6d 2c 20 70 61 |val(line|_num, pa| |000007e0| 72 6d 5f 6e 61 6d 65 2c | 20 70 61 72 6d 5f 66 6c |rm_name,| parm_fl| |000007f0| 64 5f 70 74 72 2c 20 6d | 61 78 5f 6c 65 6e 29 0d |d_ptr, m|ax_len).| |00000800| 69 6e 74 20 09 09 6c 69 | 6e 65 5f 6e 75 6d 3b 0d |int ..li|ne_num;.| |00000810| 63 68 61 72 2a 09 09 70 | 61 72 6d 5f 6e 61 6d 65 |char*..p|arm_name| |00000820| 3b 0d 63 68 61 72 2a 2a | 09 09 70 61 72 6d 5f 66 |;.char**|..parm_f| |00000830| 6c 64 5f 70 74 72 3b 0d | 69 6e 74 20 09 09 6d 61 |ld_ptr;.|int ..ma| |00000840| 78 5f 6c 65 6e 3b 0d 0d | 09 7b 20 2f 2a 20 73 65 |x_len;..|.{ /* se| |00000850| 74 5f 73 74 72 76 61 6c | 28 29 20 2a 2f 0d 2f 2a |t_strval|() */./*| |00000860| 0d 64 65 62 75 67 28 70 | 72 69 6e 74 66 28 22 73 |.debug(p|rintf("s| |00000870| 65 74 5f 73 74 72 3a 27 | 25 73 27 3d 27 25 73 27 |et_str:'|%s'='%s'| |00000880| 20 6d 61 78 3d 25 64 5c | 6e 22 2c 70 61 72 6d 5f | max=%d\|n",parm_| |00000890| 6e 61 6d 65 2c 74 6f 6b | 65 6e 2e 74 6f 6b 5f 73 |name,tok|en.tok_s| |000008a0| 74 72 69 6e 67 2c 6d 61 | 78 5f 6c 65 6e 29 3b 29 |tring,ma|x_len);)| |000008b0| 0d 2a 2f 0d 09 69 66 20 | 28 74 6f 6b 65 6e 2e 74 |.*/..if |(token.t| |000008c0| 6f 6b 5f 74 79 70 65 20 | 3d 3d 20 54 4f 4b 5f 53 |ok_type |== TOK_S| |000008d0| 43 4f 4e 53 54 29 0d 09 | 09 7b 20 2f 2a 20 72 69 |CONST)..|.{ /* ri| |000008e0| 67 68 74 20 74 79 70 65 | 2c 20 63 68 65 63 6b 20 |ght type|, check | |000008f0| 6c 65 6e 67 74 68 20 2a | 2f 0d 09 09 2f 2a 20 63 |length *|/.../* c| |00000900| 72 75 6e 63 68 20 62 61 | 63 6b 73 6c 61 73 68 20 |runch ba|ckslash | |00000910| 65 73 63 61 70 65 20 73 | 65 71 75 65 6e 63 65 73 |escape s|equences| |00000920| 20 69 6e 74 6f 20 74 72 | 75 65 20 63 68 61 72 73 | into tr|ue chars| |00000930| 20 66 69 72 73 74 20 2a | 2f 0d 09 09 65 78 70 61 | first *|/...expa| |00000940| 6e 64 5f 73 74 72 5f 63 | 68 61 72 73 28 74 6f 6b |nd_str_c|hars(tok| |00000950| 65 6e 2e 74 6f 6b 5f 73 | 74 72 69 6e 67 29 3b 0d |en.tok_s|tring);.| |00000960| 09 09 69 66 20 28 73 74 | 72 6c 65 6e 28 74 6f 6b |..if (st|rlen(tok| |00000970| 65 6e 2e 74 6f 6b 5f 73 | 74 72 69 6e 67 29 3c 3d |en.tok_s|tring)<=| |00000980| 6d 61 78 5f 6c 65 6e 29 | 0d 09 09 09 7b 0d 09 09 |max_len)|....{...| |00000990| 09 2a 70 61 72 6d 5f 66 | 6c 64 5f 70 74 72 20 3d |.*parm_f|ld_ptr =| |000009a0| 20 6d 61 6c 6c 6f 63 28 | 73 74 72 6c 65 6e 28 74 | malloc(|strlen(t| |000009b0| 6f 6b 65 6e 2e 74 6f 6b | 5f 73 74 72 69 6e 67 29 |oken.tok|_string)| |000009c0| 2b 31 29 3b 0d 09 09 09 | 73 74 72 63 70 79 28 2a |+1);....|strcpy(*| |000009d0| 70 61 72 6d 5f 66 6c 64 | 5f 70 74 72 2c 20 74 6f |parm_fld|_ptr, to| |000009e0| 6b 65 6e 2e 74 6f 6b 5f | 73 74 72 69 6e 67 29 3b |ken.tok_|string);| |000009f0| 0d 09 09 09 7d 0d 09 09 | 65 6c 73 65 0d 09 09 09 |....}...|else....| |00000a00| 7b 0d 09 09 09 62 61 64 | 5f 73 74 72 6c 65 6e 28 |{....bad|_strlen(| |00000a10| 6c 69 6e 65 5f 6e 75 6d | 2c 20 70 61 72 6d 5f 6e |line_num|, parm_n| |00000a20| 61 6d 65 2c 20 6d 61 78 | 5f 6c 65 6e 29 3b 0d 09 |ame, max|_len);..| |00000a30| 09 09 7d 0d 09 09 7d 0d | 09 65 6c 73 65 0d 09 09 |..}...}.|.else...| |00000a40| 62 61 64 5f 74 79 70 65 | 28 6c 69 6e 65 5f 6e 75 |bad_type|(line_nu| |00000a50| 6d 2c 20 70 61 72 6d 5f | 6e 61 6d 65 2c 20 54 4f |m, parm_|name, TO| |00000a60| 4b 5f 53 43 4f 4e 53 54 | 29 3b 0d 09 7d 20 2f 2a |K_SCONST|);..} /*| |00000a70| 20 73 65 74 5f 69 6e 74 | 76 61 6c 28 29 20 2a 2f | set_int|val() */| |00000a80| 0d 0d 0d 2f 2a 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.../*===|========| |00000a90| 3d 3d 3d 3d 3d 3d 5b 20 | 73 65 74 5f 70 61 72 6d |======[ |set_parm| |00000aa0| 20 5d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | ]======|========| |00000ab0| 3d 3d 3d 3d 3d 2a 2f 0d | 0d 56 4f 49 44 20 73 65 |=====*/.|.VOID se| |00000ac0| 74 5f 70 61 72 6d 28 6c | 69 6e 65 5f 6e 75 6d 2c |t_parm(l|ine_num,| |00000ad0| 20 70 61 72 6d 5f 6e 61 | 6d 65 29 0d 69 6e 74 20 | parm_na|me).int | |00000ae0| 09 09 6c 69 6e 65 5f 6e | 75 6d 3b 0d 66 6e 61 6d |..line_n|um;.fnam| |00000af0| 65 5f 74 79 70 65 09 70 | 61 72 6d 5f 6e 61 6d 65 |e_type.p|arm_name| |00000b00| 3b 0d 0d 09 7b 20 2f 2a | 20 73 65 74 5f 70 61 72 |;...{ /*| set_par| |00000b10| 6d 28 29 20 2a 2f 0d 09 | 62 79 74 65 09 70 61 72 |m() */..|byte.par| |00000b20| 6d 5f 6e 75 6d 3b 0d 0d | 09 70 61 72 6d 5f 6e 75 |m_num;..|.parm_nu| |00000b30| 6d 20 3d 20 66 69 6e 64 | 5f 70 61 72 6d 28 70 61 |m = find|_parm(pa| |00000b40| 72 6d 5f 6e 61 6d 65 29 | 3b 0d 0d 2f 2a 0d 64 65 |rm_name)|;../*.de| |00000b50| 62 75 67 28 70 72 69 6e | 74 66 28 22 73 65 74 5f |bug(prin|tf("set_| |00000b60| 70 61 72 6d 20 23 25 64 | 3a 6c 69 6e 65 20 25 64 |parm #%d|:line %d| |00000b70| 3a 27 25 73 27 3d 27 25 | 73 27 5c 6e 22 2c 70 61 |:'%s'='%|s'\n",pa| |00000b80| 72 6d 5f 6e 75 6d 2c 6c | 69 6e 65 5f 6e 75 6d 2c |rm_num,l|ine_num,| |00000b90| 70 61 72 6d 5f 6e 61 6d | 65 2c 74 6f 6b 65 6e 2e |parm_nam|e,token.| |00000ba0| 74 6f 6b 5f 73 74 72 69 | 6e 67 29 3b 29 0d 2a 2f |tok_stri|ng);).*/| |00000bb0| 0d 09 73 77 69 74 63 68 | 20 28 70 61 72 6d 5f 6e |..switch| (parm_n| |00000bc0| 75 6d 29 0d 09 09 7b 0d | 0d 2f 2a 20 47 45 4e 45 |um)...{.|./* GENE| |00000bd0| 52 41 4c 20 2a 2f 0d 0d | 09 09 63 61 73 65 20 44 |RAL */..|..case D| |00000be0| 4f 5f 49 4e 43 4c 55 44 | 45 53 3a 0d 09 09 09 73 |O_INCLUD|ES:....s| |00000bf0| 65 74 5f 62 79 74 65 76 | 61 6c 28 6c 69 6e 65 5f |et_bytev|al(line_| |00000c00| 6e 75 6d 2c 20 70 61 72 | 6d 5f 6e 61 6d 65 2c 0d |num, par|m_name,.| |00000c10| 09 09 09 09 26 70 61 72 | 6d 5f 72 65 63 2e 64 6f |....&par|m_rec.do| |00000c20| 5f 69 6e 63 6c 75 64 65 | 73 2c 20 46 41 4c 53 45 |_include|s, FALSE| |00000c30| 2c 20 54 52 55 45 29 3b | 0d 09 09 09 62 72 65 61 |, TRUE);|....brea| |00000c40| 6b 3b 0d 0d 09 09 63 61 | 73 65 20 44 4f 5f 4c 49 |k;....ca|se DO_LI| |00000c50| 53 54 49 4e 47 3a 0d 09 | 09 09 73 65 74 5f 62 79 |STING:..|..set_by| |00000c60| 74 65 76 61 6c 28 6c 69 | 6e 65 5f 6e 75 6d 2c 20 |teval(li|ne_num, | |00000c70| 70 61 72 6d 5f 6e 61 6d | 65 2c 0d 09 09 09 09 26 |parm_nam|e,.....&| |00000c80| 70 61 72 6d 5f 72 65 63 | 2e 64 6f 5f 6c 69 73 74 |parm_rec|.do_list| |00000c90| 69 6e 67 2c 20 46 41 4c | 53 45 2c 20 54 52 55 45 |ing, FAL|SE, TRUE| |00000ca0| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 0d 09 09 |);....br|eak;....| |00000cb0| 63 61 73 65 20 44 4f 5f | 58 52 45 46 3a 0d 09 09 |case DO_|XREF:...| |00000cc0| 09 73 65 74 5f 62 79 74 | 65 76 61 6c 28 6c 69 6e |.set_byt|eval(lin| |00000cd0| 65 5f 6e 75 6d 2c 20 70 | 61 72 6d 5f 6e 61 6d 65 |e_num, p|arm_name| |00000ce0| 2c 0d 09 09 09 09 26 70 | 61 72 6d 5f 72 65 63 2e |,.....&p|arm_rec.| |00000cf0| 64 6f 5f 78 72 65 66 2c | 20 46 41 4c 53 45 2c 20 |do_xref,| FALSE, | |00000d00| 54 52 55 45 29 3b 0d 09 | 09 09 62 72 65 61 6b 3b |TRUE);..|..break;| |00000d10| 0d 0d 09 09 63 61 73 65 | 20 44 4f 5f 53 54 41 54 |....case| DO_STAT| |00000d20| 53 3a 0d 09 09 09 73 65 | 74 5f 62 79 74 65 76 61 |S:....se|t_byteva| |00000d30| 6c 28 6c 69 6e 65 5f 6e | 75 6d 2c 20 70 61 72 6d |l(line_n|um, parm| |00000d40| 5f 6e 61 6d 65 2c 0d 09 | 09 09 09 26 70 61 72 6d |_name,..|...&parm| |00000d50| 5f 72 65 63 2e 64 6f 5f | 73 74 61 74 73 2c 20 46 |_rec.do_|stats, F| |00000d60| 41 4c 53 45 2c 20 54 52 | 55 45 29 3b 0d 09 09 09 |ALSE, TR|UE);....| |00000d70| 62 72 65 61 6b 3b 0d 0d | 09 09 63 61 73 65 20 4f |break;..|..case O| |00000d80| 55 54 5f 46 4e 41 4d 45 | 3a 0d 09 09 09 73 65 74 |UT_FNAME|:....set| |00000d90| 5f 73 74 72 76 61 6c 28 | 6c 69 6e 65 5f 6e 75 6d |_strval(|line_num| |00000da0| 2c 20 70 61 72 6d 5f 6e | 61 6d 65 2c 0d 09 09 09 |, parm_n|ame,....| |00000db0| 09 26 70 61 72 6d 5f 72 | 65 63 2e 6f 75 74 5f 66 |.&parm_r|ec.out_f| |00000dc0| 6e 61 6d 65 2c 20 34 30 | 29 3b 0d 09 09 09 62 72 |name, 40|);....br| |00000dd0| 65 61 6b 3b 0d 0d 2f 2a | 20 50 52 49 4e 54 45 52 |eak;../*| PRINTER| |00000de0| 20 2a 2f 0d 0d 09 09 63 | 61 73 65 20 50 41 47 45 | */....c|ase PAGE| |00000df0| 5f 4c 49 4e 45 53 3a 0d | 09 09 09 73 65 74 5f 69 |_LINES:.|...set_i| |00000e00| 6e 74 76 61 6c 28 6c 69 | 6e 65 5f 6e 75 6d 2c 20 |ntval(li|ne_num, | |00000e10| 70 61 72 6d 5f 6e 61 6d | 65 2c 0d 09 09 09 09 26 |parm_nam|e,.....&| |00000e20| 70 61 72 6d 5f 72 65 63 | 2e 70 61 67 65 5f 6c 69 |parm_rec|.page_li| |00000e30| 6e 65 73 2c 20 31 30 2c | 20 32 35 35 29 3b 0d 09 |nes, 10,| 255);..| |00000e40| 09 09 62 72 65 61 6b 3b | 0d 0d 09 09 63 61 73 65 |..break;|....case| |00000e50| 20 50 41 47 45 5f 43 4f | 4c 55 4d 4e 53 3a 0d 09 | PAGE_CO|LUMNS:..| |00000e60| 09 09 73 65 74 5f 69 6e | 74 76 61 6c 28 6c 69 6e |..set_in|tval(lin| |00000e70| 65 5f 6e 75 6d 2c 20 70 | 61 72 6d 5f 6e 61 6d 65 |e_num, p|arm_name| |00000e80| 2c 0d 09 09 09 09 26 70 | 61 72 6d 5f 72 65 63 2e |,.....&p|arm_rec.| |00000e90| 70 61 67 65 5f 63 6f 6c | 75 6d 6e 73 2c 20 31 30 |page_col|umns, 10| |00000ea0| 2c 20 32 35 35 29 3b 0d | 09 09 09 62 72 65 61 6b |, 255);.|...break| |00000eb0| 3b 0d 0d 09 09 63 61 73 | 65 20 54 4f 50 5f 4c 49 |;....cas|e TOP_LI| |00000ec0| 4e 45 3a 0d 09 09 09 73 | 65 74 5f 69 6e 74 76 61 |NE:....s|et_intva| |00000ed0| 6c 28 6c 69 6e 65 5f 6e | 75 6d 2c 20 70 61 72 6d |l(line_n|um, parm| |00000ee0| 5f 6e 61 6d 65 2c 0d 09 | 09 09 09 26 70 61 72 6d |_name,..|...&parm| |00000ef0| 5f 72 65 63 2e 74 6f 70 | 5f 6c 69 6e 65 2c 20 31 |_rec.top|_line, 1| |00000f00| 2c 20 31 30 29 3b 0d 09 | 09 09 62 72 65 61 6b 3b |, 10);..|..break;| |00000f10| 0d 0d 09 09 63 61 73 65 | 20 42 4f 54 5f 4c 49 4e |....case| BOT_LIN| |00000f20| 45 3a 0d 09 09 09 73 65 | 74 5f 69 6e 74 76 61 6c |E:....se|t_intval| |00000f30| 28 6c 69 6e 65 5f 6e 75 | 6d 2c 20 70 61 72 6d 5f |(line_nu|m, parm_| |00000f40| 6e 61 6d 65 2c 0d 09 09 | 09 09 26 70 61 72 6d 5f |name,...|..&parm_| |00000f50| 72 65 63 2e 62 6f 74 5f | 6c 69 6e 65 2c 20 31 30 |rec.bot_|line, 10| |00000f60| 2c 20 32 35 35 29 3b 0d | 09 09 09 62 72 65 61 6b |, 255);.|...break| |00000f70| 3b 0d 0d 09 09 63 61 73 | 65 20 4c 45 46 54 5f 43 |;....cas|e LEFT_C| |00000f80| 4f 4c 55 4d 4e 3a 0d 09 | 09 09 73 65 74 5f 69 6e |OLUMN:..|..set_in| |00000f90| 74 76 61 6c 28 6c 69 6e | 65 5f 6e 75 6d 2c 20 70 |tval(lin|e_num, p| |00000fa0| 61 72 6d 5f 6e 61 6d 65 | 2c 0d 09 09 09 09 26 70 |arm_name|,.....&p| |00000fb0| 61 72 6d 5f 72 65 63 2e | 6c 65 66 74 5f 63 6f 6c |arm_rec.|left_col| |00000fc0| 75 6d 6e 2c 20 31 2c 20 | 34 30 29 3b 0d 09 09 09 |umn, 1, |40);....| |00000fd0| 62 72 65 61 6b 3b 0d 0d | 09 09 63 61 73 65 20 52 |break;..|..case R| |00000fe0| 49 47 48 54 5f 43 4f 4c | 55 4d 4e 3a 0d 09 09 09 |IGHT_COL|UMN:....| |00000ff0| 73 65 74 5f 69 6e 74 76 | 61 6c 28 6c 69 6e 65 5f |set_intv|al(line_| |00001000| 6e 75 6d 2c 20 70 61 72 | 6d 5f 6e 61 6d 65 2c 0d |num, par|m_name,.| |00001010| 09 09 09 09 26 70 61 72 | 6d 5f 72 65 63 2e 72 69 |....&par|m_rec.ri| |00001020| 67 68 74 5f 63 6f 6c 75 | 6d 6e 2c 20 31 30 2c 20 |ght_colu|mn, 10, | |00001030| 32 35 35 29 3b 0d 09 09 | 09 62 72 65 61 6b 3b 0d |255);...|.break;.| |00001040| 0d 09 09 63 61 73 65 20 | 55 53 45 52 5f 48 45 41 |...case |USER_HEA| |00001050| 44 49 4e 47 3a 0d 09 09 | 09 73 65 74 5f 73 74 72 |DING:...|.set_str| |00001060| 76 61 6c 28 6c 69 6e 65 | 5f 6e 75 6d 2c 20 70 61 |val(line|_num, pa| |00001070| 72 6d 5f 6e 61 6d 65 2c | 0d 09 09 09 09 26 70 61 |rm_name,|.....&pa| |00001080| 72 6d 5f 72 65 63 2e 75 | 73 65 72 5f 68 65 61 64 |rm_rec.u|ser_head| |00001090| 69 6e 67 2c 20 38 30 29 | 3b 0d 09 09 09 62 72 65 |ing, 80)|;....bre| |000010a0| 61 6b 3b 0d 0d 09 09 63 | 61 73 65 20 44 4f 5f 53 |ak;....c|ase DO_S| |000010b0| 49 4e 47 4c 45 5f 53 48 | 54 53 3a 0d 09 09 09 73 |INGLE_SH|TS:....s| |000010c0| 65 74 5f 62 79 74 65 76 | 61 6c 28 6c 69 6e 65 5f |et_bytev|al(line_| |000010d0| 6e 75 6d 2c 20 70 61 72 | 6d 5f 6e 61 6d 65 2c 0d |num, par|m_name,.| |000010e0| 09 09 09 09 26 70 61 72 | 6d 5f 72 65 63 2e 64 6f |....&par|m_rec.do| |000010f0| 5f 73 69 6e 67 6c 65 5f | 73 68 74 73 2c 20 46 41 |_single_|shts, FA| |00001100| 4c 53 45 2c 20 54 52 55 | 45 29 3b 0d 09 09 09 62 |LSE, TRU|E);....b| |00001110| 72 65 61 6b 3b 0d 0d 09 | 09 63 61 73 65 20 50 52 |reak;...|.case PR| |00001120| 49 4e 54 45 52 5f 49 4e | 49 54 3a 0d 09 09 09 73 |INTER_IN|IT:....s| |00001130| 65 74 5f 73 74 72 76 61 | 6c 28 6c 69 6e 65 5f 6e |et_strva|l(line_n| |00001140| 75 6d 2c 20 70 61 72 6d | 5f 6e 61 6d 65 2c 0d 09 |um, parm|_name,..| |00001150| 09 09 09 26 70 61 72 6d | 5f 72 65 63 2e 70 72 69 |...&parm|_rec.pri| |00001160| 6e 74 65 72 5f 69 6e 69 | 74 2c 20 38 30 29 3b 0d |nter_ini|t, 80);.| |00001170| 09 09 09 62 72 65 61 6b | 3b 0d 0d 09 09 63 61 73 |...break|;....cas| |00001180| 65 20 48 41 53 5f 46 4f | 52 4d 5f 46 45 45 44 3a |e HAS_FO|RM_FEED:| |00001190| 0d 09 09 09 73 65 74 5f | 62 79 74 65 76 61 6c 28 |....set_|byteval(| |000011a0| 6c 69 6e 65 5f 6e 75 6d | 2c 20 70 61 72 6d 5f 6e |line_num|, parm_n| |000011b0| 61 6d 65 2c 0d 09 09 09 | 09 26 70 61 72 6d 5f 72 |ame,....|.&parm_r| |000011c0| 65 63 2e 68 61 73 5f 66 | 6f 72 6d 5f 66 65 65 64 |ec.has_f|orm_feed| |000011d0| 2c 20 46 41 4c 53 45 2c | 20 54 52 55 45 29 3b 0d |, FALSE,| TRUE);.| |000011e0| 09 09 09 62 72 65 61 6b | 3b 0d 0d 09 09 63 61 73 |...break|;....cas| |000011f0| 65 20 46 49 52 53 54 5f | 50 41 47 45 3a 0d 09 09 |e FIRST_|PAGE:...| |00001200| 09 73 65 74 5f 69 6e 74 | 76 61 6c 28 6c 69 6e 65 |.set_int|val(line| |00001210| 5f 6e 75 6d 2c 20 70 61 | 72 6d 5f 6e 61 6d 65 2c |_num, pa|rm_name,| |00001220| 0d 09 09 09 09 26 70 61 | 72 6d 5f 72 65 63 2e 66 |.....&pa|rm_rec.f| |00001230| 69 72 73 74 5f 70 61 67 | 65 2c 20 31 2c 20 70 61 |irst_pag|e, 1, pa| |00001240| 72 6d 5f 72 65 63 2e 6c | 61 73 74 5f 70 61 67 65 |rm_rec.l|ast_page| |00001250| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 0d 09 09 |);....br|eak;....| |00001260| 63 61 73 65 20 4c 41 53 | 54 5f 50 41 47 45 3a 0d |case LAS|T_PAGE:.| |00001270| 09 09 09 73 65 74 5f 69 | 6e 74 76 61 6c 28 6c 69 |...set_i|ntval(li| |00001280| 6e 65 5f 6e 75 6d 2c 20 | 70 61 72 6d 5f 6e 61 6d |ne_num, |parm_nam| |00001290| 65 2c 0d 09 09 09 09 26 | 70 61 72 6d 5f 72 65 63 |e,.....&|parm_rec| |000012a0| 2e 6c 61 73 74 5f 70 61 | 67 65 2c 20 70 61 72 6d |.last_pa|ge, parm| |000012b0| 5f 72 65 63 2e 66 69 72 | 73 74 5f 70 61 67 65 2c |_rec.fir|st_page,| |000012c0| 20 39 39 39 39 29 3b 0d | 09 09 09 62 72 65 61 6b | 9999);.|...break| |000012d0| 3b 0d 0d 2f 2a 20 70 72 | 69 6e 74 65 72 20 65 6d |;../* pr|inter em| |000012e0| 70 68 61 73 69 73 20 73 | 74 72 69 6e 67 73 20 2a |phasis s|trings *| |000012f0| 2f 0d 0d 09 09 63 61 73 | 65 20 45 4d 50 48 31 5f |/....cas|e EMPH1_| |00001300| 4c 45 41 44 49 4e 3a 0d | 09 09 09 73 65 74 5f 73 |LEADIN:.|...set_s| |00001310| 74 72 76 61 6c 28 6c 69 | 6e 65 5f 6e 75 6d 2c 20 |trval(li|ne_num, | |00001320| 70 61 72 6d 5f 6e 61 6d | 65 2c 0d 09 09 09 09 26 |parm_nam|e,.....&| |00001330| 65 6d 70 68 5f 61 72 72 | 61 79 5b 45 4d 50 48 5f |emph_arr|ay[EMPH_| |00001340| 4f 4e 45 2d 31 5d 2e 65 | 6d 70 68 5f 6c 65 61 64 |ONE-1].e|mph_lead| |00001350| 69 6e 2c 20 39 29 3b 0d | 09 09 09 62 72 65 61 6b |in, 9);.|...break| |00001360| 3b 0d 0d 09 09 63 61 73 | 65 20 45 4d 50 48 32 5f |;....cas|e EMPH2_| |00001370| 4c 45 41 44 49 4e 3a 0d | 09 09 09 73 65 74 5f 73 |LEADIN:.|...set_s| |00001380| 74 72 76 61 6c 28 6c 69 | 6e 65 5f 6e 75 6d 2c 20 |trval(li|ne_num, | |00001390| 70 61 72 6d 5f 6e 61 6d | 65 2c 0d 09 09 09 09 26 |parm_nam|e,.....&| |000013a0| 65 6d 70 68 5f 61 72 72 | 61 79 5b 45 4d 50 48 5f |emph_arr|ay[EMPH_| |000013b0| 54 57 4f 2d 31 5d 2e 65 | 6d 70 68 5f 6c 65 61 64 |TWO-1].e|mph_lead| |000013c0| 69 6e 2c 20 39 29 3b 0d | 09 09 09 62 72 65 61 6b |in, 9);.|...break| |000013d0| 3b 0d 0d 09 09 63 61 73 | 65 20 45 4d 50 48 33 5f |;....cas|e EMPH3_| |000013e0| 4c 45 41 44 49 4e 3a 0d | 09 09 09 73 65 74 5f 73 |LEADIN:.|...set_s| |000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00001400| 6f 75 6e 64 2c 20 68 69 | 5f 62 6f 75 6e 64 29 0d |ound, hi|_bound).| |00001410| 69 6e 74 20 09 09 09 6c | 69 6e 65 5f 6e 75 6d 3b |int ...l|ine_num;| |00001420| 0d 63 68 61 72 2a 09 09 | 09 70 61 72 6d 5f 6e 61 |.char*..|.parm_na| |00001430| 6d 65 3b 0d 75 6e 73 69 | 67 6e 65 64 20 6c 6f 6e |me;.unsi|gned lon| |00001440| 67 09 6c 6f 5f 62 6f 75 | 6e 64 3b 0d 75 6e 73 69 |g.lo_bou|nd;.unsi| |00001450| 67 6e 65 64 20 6c 6f 6e | 67 09 68 69 5f 62 6f 75 |gned lon|g.hi_bou| |00001460| 6e 64 3b 0d 0d 09 7b 20 | 2f 2a 20 62 61 64 5f 6e |nd;...{ |/* bad_n| |00001470| 75 6d 72 61 6e 67 65 28 | 29 20 2a 2f 0d 09 66 70 |umrange(|) */..fp| |00001480| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 20 22 49 |rintf(st|derr, "I| |00001490| 6c 6c 65 67 61 6c 20 76 | 61 6c 75 65 20 66 6f 72 |llegal v|alue for| |000014a0| 20 70 61 72 6d 20 27 25 | 73 27 5c 6e 22 2c 20 70 | parm '%|s'\n", p| |000014b0| 61 72 6d 5f 6e 61 6d 65 | 29 3b 0d 09 66 70 72 69 |arm_name|);..fpri| |000014c0| 6e 74 66 28 73 74 64 65 | 72 72 2c 20 22 69 6e 20 |ntf(stde|rr, "in | |000014d0| 6c 69 6e 65 20 25 64 20 | 6f 66 20 50 61 72 6d 20 |line %d |of Parm | |000014e0| 46 69 6c 65 20 27 25 73 | 27 5c 6e 22 2c 0d 09 09 |File '%s|'\n",...| |000014f0| 09 6c 69 6e 65 5f 6e 75 | 6d 2c 20 66 69 6c 65 5f |.line_nu|m, file_| |00001500| 72 65 63 2e 70 61 72 6d | 5f 66 6e 61 6d 65 29 3b |rec.parm|_fname);| |00001510| 0d 09 66 70 72 69 6e 74 | 66 28 73 74 64 65 72 72 |..fprint|f(stderr| |00001520| 2c 20 22 56 61 6c 69 64 | 20 72 61 6e 67 65 20 66 |, "Valid| range f| |00001530| 6f 72 20 70 61 72 6d 20 | 69 73 20 25 6c 75 20 74 |or parm |is %lu t| |00001540| 6f 20 25 6c 75 5c 6e 22 | 2c 0d 09 09 09 6c 6f 5f |o %lu\n"|,....lo_| |00001550| 62 6f 75 6e 64 2c 20 68 | 69 5f 62 6f 75 6e 64 29 |bound, h|i_bound)| |00001560| 3b 0d 09 65 78 69 74 28 | 31 29 3b 0d 09 7d 20 2f |;..exit(|1);..} /| |00001570| 2a 20 62 61 64 5f 6e 75 | 6d 72 61 6e 67 65 00 00 |* bad_nu|mrange..| +--------+-------------------------+-------------------------+--------+--------+